00100		BIT=43
00200		ENTRY	MORSIN,LESSIN,SLEEP
00250		EXTERN	HREE
00300		ENTRY	CHAR,CRET
00400	MORSIN:	DEC	0
00500		MOVEM	7,SAVE
00600		MOVE	7,(16)
00700		MOVEM	7,BEGIN
00800		MOVEM	7,HERE
00900		ADD	7,@1(16)
01000		MOVEM	7,END
01100		MOVEI	7,1
01200		MOVEM	7,HREE
01300		SETZM	@HERE
01500		MOVE	7,[BYTE	(2)2(16)1(18)GOTOIT]
01600		CALL	7,[SIXBIT /SPCWGO/]
01700		MOVE	7,SAVE
01800		JRA	16,2(16)
01900	LESSIN:	DEC	0
02000		SPCWAR	636367
02100		JRA	16,(16)
02200	SLEEP:	DEC	0
02300		MOVEM	7,SAVE
02400		MOVE	7,@(16)
02500		CALL	7,[SIXBIT /SLEEP/]
02600		MOVE	7,SAVE
02700		JRA	16,1(16)
02800	CHAR:	DEC	0
02900		MOVEM	7,SAVE
03000		MOVE	7,@(16)
03100		LSH	7,-35
03200		MOVEM	7,CH
03300		TTCALL	1,CH
03400		MOVE	7,CH
03500		JRA	16,1(16)
03600	CRET:	DEC	0
03700		TTCALL	3,[ASCIZ /
03800	/]
03900		JRA	16,(16)
04000	CH:	DEC	0
04100	SAVE:	BLOCK	1
04200	SUM:	DEC	0
04400	BEGIN:	DEC	0
04500	END:	DEC	0
04501	HERE:	DEC	0
04601	PREV:	DEC	0
04700	GOTOIT:	MOVEI	4,1
04800		JUMPLE	3,.+2
04900		ADD	4,3
05000		LSHC	1,BIT-43
05200		ANDI	1,1
05300		MOVE	3,1
05400		MOVE	2,PREV
05500		XOR	1,2
05600		JUMPN	1,SWITCH
05700		LSH	3,1
05800		SUBI	3,1
05900		MOVN	3,3
05912		IMUL	3,4
06000		ADDB	3,SUM
06100		MOVEM	3,@HERE
06200		CALLI	400024
06300	SWITCH:	XORI	2,1
06400		MOVEM	2,PREV
06500		LSH	2,1
06503		SUBI	2,1
06506		MOVNM	2,SUM
06600		ADDB	1,HERE
06700		CAML	1,END
06800		JRST	OFLO
06825		MOVNM	2,@HERE
06850		SUB	1,BEGIN
06875		AOJ	1,0
06887		MOVEM	1,HREE
06900		CALLI	400024
07000	OFLO:	MOVE	5,BEGIN
07100		MOVEM	5,HERE
07125		MOVNM	2,@HERE
07150		MOVEI	5,1
07175		MOVEM	5,HREE
07200		CALLI	400024
07300		END